unit Utils;

{$mode ObjFPC}{$H+}

interface

uses
  Classes, SysUtils;

type
  TSome = class
    name: string;
  end;

var
  u_name: string = 'Unit Utils';

{ functions }
function getname: string;

{ procedures }

{ properties }
property name: string read getname;

implementation

function getname: string;
begin
  result := u_name;
end;

initialization

end.

